CAAIlluminatedFraction_UranusMagnitudeAA <-
function(r, Delta){
.Call("CAAIlluminatedFraction_UranusMagnitudeAA", r, Delta)
}
